[Common]
Description=ȡĿ¼б
HotKeyStart=119
HotKeyStop=122
HotKeyPause=0
Enabled=1
RunOnce=1

[Data]


[Script]
Main:
//Your code here
  var s=""
  set s=VBSCall("GetSubFolders","c:\temp")
  do ShowMsg(s)
EndMain

vbsbegin
dim fs,SubFoldersFound
function GetSubFolders(ParentFolder)
    Set fs = CreateObject("scripting.filesystemobject")
    digui(ParentFolder)'õݹ麯в
    GetSubFolders=SubFoldersFound
End Function

'ǵݹҺ
Function digui(path)
    Set folder = fs.getfolder(path)
    Set subfolders = folder.subfolders
    'Set Files = folder.Files
    'For Each i In Files
    '    FileName=FileName & i.path & vbNewLine 'ҵ׷ӵFileName
    'Next
    For Each j In subfolders
        SubFoldersFound=SubFoldersFound & j.path & vbNewLine
        digui(j.path) 'ݹĿ¼
    Next
End Function
vbsend
